home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 1.5 KB | 62 lines | [TEXT/MPS ] |
- ;
- ; File: OSAComp.a
- ;
- ; Contains: AppleScript Component Implementor's Interfaces.
- ;
- ; Version: Technology: AppleScript 1.1
- ; Release: Universal Interfaces 3.0d3 on Copland DR1
- ;
- ; Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, send the file and version
- ; information (from above) and the problem description to:
- ;
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
- IF &TYPE('__OSACOMP__') = 'UNDEFINED' THEN
- __OSACOMP__ SET 1
-
- IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
- include 'AppleEvents.a'
- ENDIF
- IF &TYPE('__OSA__') = 'UNDEFINED' THEN
- include 'OSA.a'
- ENDIF
- IF FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE THEN
- ;
- ;*************************************************************************
- ; Types and Constants
- ;*************************************************************************
- ;
- ;
- ;*************************************************************************
- ; Routines for Associating a Storage Type with a Script Data Handle
- ;*************************************************************************
- ;
- ;
- ; pascal OSErr OSAGetStorageType(Handle scriptData, DescType *dscType)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION OSAGetStorageType
- ENDIF
-
- ;
- ; pascal OSErr OSAAddStorageType(Handle scriptData, DescType dscType)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION OSAAddStorageType
- ENDIF
-
- ;
- ; pascal OSErr OSARemoveStorageType(Handle scriptData)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION OSARemoveStorageType
- ENDIF
-
- ENDIF
- ENDIF ; __OSACOMP__
-
-